
  LD  BC,16*80+4
  LD  DE,8*256+74
  CALL  WINDOW_CLEAR
  RET
PUTWINDOW:
  LD  A,1
  LD  DE,FACE_BUFFER
  LD  L,0DFH
  CALL  DBIOS
  LD  BC,4000H
  LD  DE,0410H
  CALL  FACE_PUT
  CALL  INI_FRAME
  R